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Version: *v04-000' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, " MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oORPORATION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 1§ NOT SUPPLIED BY DIGITAL. 
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Facility: Executive , Hardware fault handling 


Ab.tract: This module contains an event logger that may be called 
to log scheduling information. 


Environment: MODE=Kernel 
Author: Kathleen D. Morse, Creation date: 08-Apr-1981 
Modified by: 

{ Version ‘ 
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: Include files: 


SPCBDEF 3; Process control block 
SPHDDEF ; Process header 
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a 8 
MPL = Multi- 1 EP-1984 AX/VM 4- 
wk evar aS ae GERSHON BIDE:8E MRCAREaRGR Alte? Pe 
; : MACROS: 
- 
5 ; Equated Symbols: 
00000005 if One ENTRY = 5 ; # of longwords in one log entry 
86 Data Area 
64 oon Lochs. LOGGER ,LONG : Event logger 
00000000 wpsso. Loken. 0 ; Indicator whether or not to log info 
00000000 4 8 -".LONG 0 : Pointer to next free byte in log bufr 
8 MPSSGL_LOG: : : 
00000708 : oY 300. Loetns <ONE_ENTRY*100> 3 - ey rer ee 
33 3 End of log bu 
708 72 “LIST MEB 3 Show neers expansions 
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~SEP=-1984 02:12:29 VAX/VMS_M v04-00 Pp 
LOGFOUND = Log scheduling decision r g: 93:08:86 i PLOG 9 _ 
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p ue o «SBTTL MPSSLOGFOUND = Log scheduling decision result 
2p if: : Functional Description: 
7D 4 : This module is used to log scheduling information as processes as 
70 79 ; echequiee for the secondary. It is a debugging tool for the 
gp 9 3; multi-processing code. 
£p § ; Calling Sequence: 
2p 4 ; BSBW  MPSSLOGFOUND 
7D § ; Input Parameters: 
7D 3 
7D 3 3 None 
7D H 
7D 90 ; Output Parameters: 
7D 91 ; 
07D 38 3 None 
a 93 ; 
708 3¢ 3: Implicit Inputs: 
078 9 ; MPSSGL_CURPCB = address of current process on secondary 
0708 97 ; MPSS$GL_LOGIND - Log indicator, LBS = Log info, LBC = don't log info 
0708 98 ; MPSS$GL_LOGPTR = pointer to next free byte in log buffer 
B708 99 ; MPS$GL_LOG - beginning of log buffer 
ByD8 190 ; MPSS$GL_LOGEND - end of lcg buffer 
ta 19 : Implicit Outputs: 
Bape 104 ; Logging data may be entered into the log buffer. 
dane 
708 107 ° 
et 108 MPSSLOGFOUND: : 3 
3— F823 CF 00 €1 O7D 109 BBC #0,W°MPSSGL_LOGIND,20$ ; Is logging requested? 
OF 6B 07D 110 PUSHR #*M<RO,R1,R2,R5> : Save registers 
53 FFFS CF 9 7e0 111 MOVAB W*MPS$GL_LOGEND,R3 ; Adr of end of log buffer 
50 FBIB CF OD 7E 6 MOVL W*MPSSGL_LOGPTR,RO ; Adr of next free byte in Log buffer 
51 14 A0 9E O7EA 11 MOVAB <ONE_ENTRY#4>(RO) ,R1 ; Adr of next byte past this log entry 
> i} ie | vee 114 CMPL 1,R3 ; Entry to large to fit in buffer? 
2A | 7F 115 BGEQU o$ ; Br on yes, go turn off event logging 
51 QO000°CF oD oe 116 OVL W*MPSSGL_CURPCB,R1 3; Adr of current PCB on secondary 
52 : Al 00 O7F8 11 MOVL  PCBSL_PHB(R1),Re : Adr of current PHD on secondary 
80 000000 O°Gr D 7F 118 MOVL G*SCHSGL_COMQS, (RO)+ ; Log compute queue states 
80 60A1 0D 5 11 MOVL PCBSL_PIB(R1) RO)+ ; Log PID of current process 
0 00C0 cg D 120 MOVL § PHDSLPC(R2) , (RO)+ : Log PC of current process 
0 0c4 € Dd ¢C 121 MOVL PHDSL “PSL (Res . (RO) + ; Log PSL of current process 
80 OB Al 9A th § MOVZBL PCBSB ai ty »,(RO)+ 3 Log priority of current process 
F7EA CF «650 DO 0815 1 MOVL 0,W*APS$GL LOGPTR ; Update pointer to next free byte 
OF BA 1” 1246 10s POPR #*M<RO,R1,R2,R5> ; Restore registers 
5 ! 5 208 RSB 3; Return to caller 
1D 1 : 3 
4 } 8 ; Turn off event logging as buffer is full. 
00 F7DE CF 00 €E7 1D 130 $08: BBCC] #0,W*MPSSGL_LOGIND,40$ ; Turn off event logging, buffer full 
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AX/VM 
MP.SR 
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cro V04- 
LOG.MAR; 


90 


; Continue with common code 
; Show macro expansions 
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: 9% 

Log scheduling decision “SEP-1984 MP.SRCIMPLOG.MAR; 1 (1) 
. -SBTTL MPSSLOGCHOOSE = Log scheduling decision making data 
Functional Description: 
tran ined for gcheduting 8 the secondary. Tt 16 a debugging’ toot for the 
multi=processing code. 
Calling Sequence: 

BSBw MPSS$LOGCHOOSE 
Input Parameters: 


R4 - PCB address of scheduling candidate 
RS = PHD address of scheduling candidate 


Output Parameters: 
None 
Implicit Inputs: 


MPSS$GL_LOGIND - a indicator, LBS = Log — a" a log info 
n e in log buffer 


Implicit Outputs: 
Logging data may be entered into the log buffer. 
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MPSSLOGCHOOSE: : 
BBC 
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309096909 090909 6909 69 SII NNN DD DDD DDO DDS TTT TTT Ee Be BS BS BB AI 
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38 F706 CF 00 €1 08 #0,W*MPSS$GL AGI .c08 : Is logging requested? 
OF 68 PUSHR #*M<RO,R1,R2,R35> : Save registers 
53 FRAT CF 9 MOVAB W*MPSS$GL_LOGEND.R3 ; Adr of end of log buffer 
50 F7CE CF OD OVL W*MPSSGL_LOGPTR,RO ; Adr of next free byte in Lop buffer 
51 14 A0 9 MOVAB <ONE_ENTRY®4>(RO),R1 : Adr of next byte past this log entry 
53 51—o# CMPL = R1,R3 ; Entry to large to fit in buffer? | 
24—C1 BGEQU 30$ ; Br on yes, go turn off event Logging 
80 Q0000000'GF 0D OVL G*SCHSGL_COMQS,(RO)+ ; Log compute queue states 
80 60 A4 0D MOVL PCosL FIO CRS) (RO) + ; Log PID of current process 
80 o00cd cS oD MOVL PHDSL_PC(R5) {RO)+ ; Log PC of current process 
80 00c4 ¢5 D0 VL HDSL~PSL(R5$, (RO) + ; Log PSL of current process 
80 OB AG 98 MOVZBW PCBSB_PRI(R4),(RO)+ ; Log priority of current process 
80 9 7 MOVZBW #1,(RO)+ ; Log indicator for decision process 
F7A3 CF 0 oO MOVL RO,W*MPSSGL Legere ; Update pointer to next free byte 
OF BA 198: POPR #*M<RO,R1,R2,R5> ; Restore registers 
5 208: RSB 3; Return to caller 
; Turn off event logging as buffer is full. 
00 F797 CF 09 E7 $08: BBCCI 8 W“MPSSGL_LOGIND,49$ ; Turn off event logging, buffer full 
F 11 40$: BRB 10$ ; Continue with common code 
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Symbol table 
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MPSSGL_CURPCB eeneeree 
MPSS$GL_L 08 RG 
MPSSGL_LOGEND RG 
MPSS$GL_LOGI RG 
MPSSGL_LOGPTR 4 RG 
MPSSLOGCH RG 
MPSSLOGF OUND RG 
ONE _ENTRY = 
PCBSB_PRI = 
PCBSL_P = 6 
PCBSL_PID = 6 
PHDSL_ = C 
PHDSL_ PSL = 00 C4 
SCHSGC_COMQS eterenee 2 
pom oceece ream aowran + 
H Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
» 00000000 0.) 00 ¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS$ 00000000 ( 0.) O1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
LOGGER 0000086C ( 2156.) 02 ¢ 2.) NOPIC USR CON’ REL LCL NOSHR EXE RD WRT NOVEC LONG 
pecoraer ene eocmce ranean ae Sa 
: Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 35 00:00:00.09 00:00:00.56 
Command processing 152 Bp 208: 9-93 00:00:04.00 
Pass 176 0: 3: af: ES 
Symbol table sort 00:00: bs Bs ed 
Pass 2 5 00:00:00.86 Bs 0:03.20 
Symbol table output 83: : 8-83 338: Q8 88 
Psect synopsis output 8: :00.03 0:00:00.08 
Cross-reference output 8 :00: 9-2 SAR Do 
Assembler run totals 42 0:00:05.44 0:00:17.41 


The working set Limit was 1200 pages. 

14682 bytes (29 pages) of virtual memory were used to buffer the intermediate gore. 

There were 20 pages of symbol table space allocated to hold 260 non-local ae local symbols. 
196 source Lines were read in Pass 1, producing 15 object records in Pass 2. 

10 pages of virtual memory were used to define 9 macros. 
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MPLOG 
VAX=11 Macro Run Statistics 
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! Macro Library statistics ! 


t¢roer wom emer esnnreecce sre ez ea ca $ 


Macro Library name Macros defined 
“$35 SSDUAse FSVe 08 Oar me PR 4 1 
55$DUA ni Hes Sy8ii8 STARLET ALB:2 g 
TOTALS (all Libraries) 6 


336 GETS were required to define 6 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:MPLOG/OBJ=0BJ$:MPLOG MSRC$:MPPREF IX/UPDATE=(ENHS:MPPREF IX) +MSRC$:MPLOG/UPDATE=(ENHS$ :MPLOG) +EXECML$/LIB+LIBS:MP.MLB/LI 
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